Tvorba TMenuItem s priradenim onClick

Otázka od: Jozef Baranec

21. 10. 2002 21:03

Ahoj,

Potreboval by som vytvorit TMenuItem s Caption napr. "moje menu" a
priradit tomu onClick procedure, ktora mi povedzme do focusnuteho TEdit
vlozi svoje Caption.
Vedel by mi niekto poradit?

Dakujem

jozo

Odpovedá: Petr Varga

22. 10. 2002 0:49

> Potreboval by som vytvorit TMenuItem s Caption napr. "moje menu" a
> priradit tomu onClick procedure, ktora mi povedzme do focusnuteho
TEdit > vlozi svoje Caption.
No to by melo jit takto
Var polozka:TmenuItem;
Begin
polozka:=tmenuitem.create(self);
polozka.caption:='Moje menu';
polozka.onclick:=onclick1;
mainmenu1.items.insert(pozicekamvlozit,polozka);
end;
No a procedure Onclick1(Sender:TObject);
Begin
edit1.text:=(sender as tmenuitem).caption;
end;

Nevim jestli to pujde .. psal jsem to z hlavy

---
Stránky o automobilech, novinky, autobazary, nová auta,
příslušenství, pojištění aut... http://automoto.volny.cz